home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / qrctrls.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  19.9 KB  |  589 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Qrctrls.pas' rev: 3.00
  6.  
  7. #ifndef QrctrlsHPP
  8. #define QrctrlsHPP
  9. #include <qr2const.hpp>
  10. #include <quickrpt.hpp>
  11. #include <qrprntr.hpp>
  12. #include <RichEdit.hpp>
  13. #include <ComCtrls.hpp>
  14. #include <DBTables.hpp>
  15. #include <Db.hpp>
  16. #include <Printers.hpp>
  17. #include <Dialogs.hpp>
  18. #include <ExtCtrls.hpp>
  19. #include <Forms.hpp>
  20. #include <Buttons.hpp>
  21. #include <Graphics.hpp>
  22. #include <SysUtils.hpp>
  23. #include <StdCtrls.hpp>
  24. #include <Controls.hpp>
  25. #include <Classes.hpp>
  26. #include <Windows.hpp>
  27. #include <Messages.hpp>
  28. #include <SysInit.hpp>
  29. #include <System.hpp>
  30.  
  31. //-- user supplied -----------------------------------------------------------
  32.  
  33. namespace Qrctrls
  34. {
  35. //-- type declarations -------------------------------------------------------
  36. typedef void __fastcall (__closure *TQRLabelOnPrintEvent)(System::TObject* sender, System::AnsiString 
  37.     &Value);
  38.  
  39. class DELPHICLASS TQRCustomLabel;
  40. class PASCALIMPLEMENTATION TQRCustomLabel : public Quickrpt::TQRPrintable 
  41. {
  42.     typedef Quickrpt::TQRPrintable inherited;
  43.     
  44. private:
  45.     bool DoneFormat;
  46.     bool FAutoSize;
  47.     bool FAutoStretch;
  48.     System::AnsiString FCaption;
  49.     int FFontSize;
  50.     Classes::TStrings* FFormattedLines;
  51.     Classes::TStrings* FLines;
  52.     TQRLabelOnPrintEvent FOnPrint;
  53.     bool FWordWrap;
  54.     int MaxWidth;
  55.     bool UpdatingBounds;
  56.     System::AnsiString __fastcall GetCaption(void);
  57.     void __fastcall SetAutoStretch(bool Value);
  58.     void __fastcall SetCaption(System::AnsiString Value);
  59.     void __fastcall SetLines(Classes::TStrings* Value);
  60.     void __fastcall SetWordWrap(bool Value);
  61.     void __fastcall PaintToCanvas(Graphics::TCanvas* aCanvas, const Windows::TRect &aRect, bool CanExpand
  62.         , int LineHeight);
  63.     void __fastcall PrintToCanvas(Graphics::TCanvas* aCanvas, Extended aLeft, Extended aTop, Extended aWidth
  64.         , Extended aHeight, Extended LineHeight, bool CanExpand);
  65.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  66.     
  67. protected:
  68.     virtual void __fastcall FormatLines(void);
  69.     virtual void __fastcall Loaded(void);
  70.     virtual void __fastcall SetName(const System::AnsiString Value);
  71.     virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  72.     __property TQRLabelOnPrintEvent OnPrint = {read=FOnPrint, write=FOnPrint};
  73.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  74.     virtual void __fastcall ReadFontSize(Classes::TReader* Reader);
  75.     virtual void __fastcall WriteFontSize(Classes::TWriter* Writer);
  76.     virtual void __fastcall ReadVisible(Classes::TReader* Reader);
  77.     virtual void __fastcall WriteDummy(Classes::TWriter* Writer);
  78.     virtual void __fastcall Paint(void);
  79.     virtual void __fastcall Prepare(void);
  80.     virtual void __fastcall Print(int OfsX, int OfsY);
  81.     virtual void __fastcall SetAlignment(Classes::TAlignment Value);
  82.     
  83. public:
  84.     __fastcall virtual TQRCustomLabel(Classes::TComponent* AOwner);
  85.     __fastcall virtual ~TQRCustomLabel(void);
  86.     __property Alignment ;
  87.     __property bool AutoSize = {read=FAutoSize, write=FAutoSize, nodefault};
  88.     __property bool AutoStretch = {read=FAutoStretch, write=SetAutoStretch, nodefault};
  89.     __property System::AnsiString Caption = {read=GetCaption, write=SetCaption, stored=true};
  90.     __property Color ;
  91.     __property Font ;
  92.     __property Classes::TStrings* Lines = {read=FLines, write=SetLines};
  93.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
  94. public:
  95.     /* TWinControl.CreateParented */ __fastcall TQRCustomLabel(HWND ParentWindow) : Quickrpt::TQRPrintable(
  96.         ParentWindow) { }
  97.     
  98. };
  99.  
  100. class DELPHICLASS TQRLabel;
  101. class PASCALIMPLEMENTATION TQRLabel : public Qrctrls::TQRCustomLabel 
  102. {
  103.     typedef Qrctrls::TQRCustomLabel inherited;
  104.     
  105. __published:
  106.     __property Alignment ;
  107.     __property AlignToBand ;
  108.     __property AutoSize ;
  109.     __property AutoStretch ;
  110.     __property Caption ;
  111.     __property Color ;
  112.     __property Font ;
  113.     __property OnPrint ;
  114.     __property ParentFont ;
  115.     __property Transparent ;
  116.     __property WordWrap ;
  117. public:
  118.     /* TQRCustomLabel.Create */ __fastcall virtual TQRLabel(Classes::TComponent* AOwner) : Qrctrls::TQRCustomLabel(
  119.         AOwner) { }
  120.     /* TQRCustomLabel.Destroy */ __fastcall virtual ~TQRLabel(void) { }
  121.     
  122. public:
  123.     /* TWinControl.CreateParented */ __fastcall TQRLabel(HWND ParentWindow) : Qrctrls::TQRCustomLabel(ParentWindow
  124.         ) { }
  125.     
  126. };
  127.  
  128. class DELPHICLASS TQRMemo;
  129. class PASCALIMPLEMENTATION TQRMemo : public Qrctrls::TQRCustomLabel 
  130. {
  131.     typedef Qrctrls::TQRCustomLabel inherited;
  132.     
  133. protected:
  134.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  135.     virtual void __fastcall ReadTabStop(Classes::TReader* Reader);
  136.     virtual void __fastcall WriteDummy2(Classes::TWriter* Writer);
  137.     
  138. public:
  139.     virtual void __fastcall Paint(void);
  140.     virtual void __fastcall Print(int OfsX, int OfsY);
  141.     
  142. __published:
  143.     __property Alignment ;
  144.     __property AlignToBand ;
  145.     __property AutoSize ;
  146.     __property AutoStretch ;
  147.     __property Color ;
  148.     __property Font ;
  149.     __property Lines ;
  150.     __property ParentFont ;
  151.     __property Transparent ;
  152.     __property WordWrap ;
  153. public:
  154.     /* TQRCustomLabel.Create */ __fastcall virtual TQRMemo(Classes::TComponent* AOwner) : Qrctrls::TQRCustomLabel(
  155.         AOwner) { }
  156.     /* TQRCustomLabel.Destroy */ __fastcall virtual ~TQRMemo(void) { }
  157.     
  158. public:
  159.     /* TWinControl.CreateParented */ __fastcall TQRMemo(HWND ParentWindow) : Qrctrls::TQRCustomLabel(ParentWindow
  160.         ) { }
  161.     
  162. };
  163.  
  164. class DELPHICLASS TQRDBText;
  165. class PASCALIMPLEMENTATION TQRDBText : public Qrctrls::TQRCustomLabel 
  166. {
  167.     typedef Qrctrls::TQRCustomLabel inherited;
  168.     
  169. private:
  170.     Db::TField* Field;
  171.     int FieldNo;
  172.     bool FieldOK;
  173.     System::SmallString<30>  DataSourceName;
  174.     Db::TDataSet* FDataSet;
  175.     System::AnsiString FDataField;
  176.     System::AnsiString FMask;
  177.     void __fastcall SetDataSet(Db::TDataSet* Value);
  178.     void __fastcall SetDataField(System::AnsiString Value);
  179.     void __fastcall SetMask(System::AnsiString Value);
  180.     
  181. protected:
  182.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  183.     virtual void __fastcall Loaded(void);
  184.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  185.         );
  186.     virtual void __fastcall Prepare(void);
  187.     virtual void __fastcall Print(int OfsX, int OfsY);
  188.     virtual void __fastcall ReadValues(Classes::TReader* Reader);
  189.     virtual void __fastcall Unprepare(void);
  190.     virtual void __fastcall WriteValues(Classes::TWriter* Writer);
  191.     
  192. public:
  193.     __fastcall virtual TQRDBText(Classes::TComponent* AOwner);
  194.     
  195. __published:
  196.     __property Alignment ;
  197.     __property AlignToBand ;
  198.     __property AutoSize ;
  199.     __property AutoStretch ;
  200.     __property Color ;
  201.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  202.     __property System::AnsiString DataField = {read=FDataField, write=SetDataField};
  203.     __property Font ;
  204.     __property System::AnsiString Mask = {read=FMask, write=SetMask};
  205.     __property OnPrint ;
  206.     __property ParentFont ;
  207.     __property Transparent ;
  208.     __property WordWrap ;
  209. public:
  210.     /* TQRCustomLabel.Destroy */ __fastcall virtual ~TQRDBText(void) { }
  211.     
  212. public:
  213.     /* TWinControl.CreateParented */ __fastcall TQRDBText(HWND ParentWindow) : Qrctrls::TQRCustomLabel(
  214.         ParentWindow) { }
  215.     
  216. };
  217.  
  218. class DELPHICLASS TQRExpr;
  219. class PASCALIMPLEMENTATION TQRExpr : public Qrctrls::TQRCustomLabel 
  220. {
  221.     typedef Qrctrls::TQRCustomLabel inherited;
  222.     
  223. private:
  224.     Qrprntr::TQREvaluator* Evaluator;
  225.     System::AnsiString FExpression;
  226.     System::AnsiString FMask;
  227.     Classes::TComponent* FMaster;
  228.     bool FResetAfterPrint;
  229.     Qrprntr::TQREvResult __fastcall GetValue(void);
  230.     void __fastcall SetExpression(System::AnsiString Value);
  231.     void __fastcall SetMask(System::AnsiString Value);
  232.     
  233. protected:
  234.     virtual void __fastcall Prepare(void);
  235.     virtual void __fastcall Unprepare(void);
  236.     virtual void __fastcall QRNotification(System::TObject* Sender, Quickrpt::TQRNotifyOperation Operation
  237.         );
  238.     virtual void __fastcall Print(int OfsX, int OfsY);
  239.     void __fastcall SetMaster(Classes::TComponent* AComponent);
  240.     
  241. public:
  242.     __fastcall virtual TQRExpr(Classes::TComponent* AOwner);
  243.     __fastcall virtual ~TQRExpr(void);
  244.     void __fastcall Reset(void);
  245.     __property Qrprntr::TQREvResult Value = {read=GetValue};
  246.     
  247. __published:
  248.     __property Alignment ;
  249.     __property AlignToBand ;
  250.     __property AutoSize ;
  251.     __property AutoStretch ;
  252.     __property Font ;
  253.     __property Color ;
  254.     __property Classes::TComponent* Master = {read=FMaster, write=SetMaster};
  255.     __property OnPrint ;
  256.     __property ParentFont ;
  257.     __property bool ResetAfterPrint = {read=FResetAfterPrint, write=FResetAfterPrint, nodefault};
  258.     __property Transparent ;
  259.     __property WordWrap ;
  260.     __property System::AnsiString Expression = {read=FExpression, write=SetExpression};
  261.     __property System::AnsiString Mask = {read=FMask, write=SetMask};
  262. public:
  263.     /* TWinControl.CreateParented */ __fastcall TQRExpr(HWND ParentWindow) : Qrctrls::TQRCustomLabel(ParentWindow
  264.         ) { }
  265.     
  266. };
  267.  
  268. enum TQRSysDataType { qrsTime, qrsDate, qrsDateTime, qrsPageNumber, qrsReportTitle, qrsDetailCount, 
  269.     qrsDetailNo };
  270.  
  271. class DELPHICLASS TQRSysData;
  272. class PASCALIMPLEMENTATION TQRSysData : public Qrctrls::TQRCustomLabel 
  273. {
  274.     typedef Qrctrls::TQRCustomLabel inherited;
  275.     
  276. private:
  277.     TQRSysDataType FData;
  278.     System::AnsiString FText;
  279.     void __fastcall SetData(TQRSysDataType Value);
  280.     HIDESBASE void __fastcall SetText(System::AnsiString Value);
  281.     void __fastcall CreateCaption(void);
  282.     
  283. protected:
  284.     virtual void __fastcall Print(int OfsX, int OfsY);
  285.     
  286. public:
  287.     __fastcall virtual TQRSysData(Classes::TComponent* AOwner);
  288.     
  289. __published:
  290.     __property Alignment ;
  291.     __property AlignToBand ;
  292.     __property AutoSize ;
  293.     __property Color ;
  294.     __property TQRSysDataType Data = {read=FData, write=SetData, nodefault};
  295.     __property Font ;
  296.     __property OnPrint ;
  297.     __property ParentFont ;
  298.     __property System::AnsiString Text = {read=FText, write=SetText};
  299.     __property Transparent ;
  300. public:
  301.     /* TQRCustomLabel.Destroy */ __fastcall virtual ~TQRSysData(void) { }
  302.     
  303. public:
  304.     /* TWinControl.CreateParented */ __fastcall TQRSysData(HWND ParentWindow) : Qrctrls::TQRCustomLabel(
  305.         ParentWindow) { }
  306.     
  307. };
  308.  
  309. enum TQRShapeType { qrsRectangle, qrsCircle, qrsVertLine, qrsHorLine, qrsTopAndBottom, qrsRightAndLeft 
  310.     };
  311.  
  312. class DELPHICLASS TQRShape;
  313. class PASCALIMPLEMENTATION TQRShape : public Quickrpt::TQRPrintable 
  314. {
  315.     typedef Quickrpt::TQRPrintable inherited;
  316.     
  317. private:
  318.     TQRShapeType FShape;
  319.     Graphics::TBrush* FBrush;
  320.     Graphics::TPen* FPen;
  321.     void __fastcall SetBrush(Graphics::TBrush* Value);
  322.     void __fastcall SetPen(Graphics::TPen* Value);
  323.     void __fastcall SetShape(TQRShapeType Value);
  324.     
  325. protected:
  326.     virtual void __fastcall Paint(void);
  327.     virtual void __fastcall Print(int OfsX, int OfsY);
  328.     void __fastcall StyleChanged(System::TObject* sender);
  329.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  330.     virtual void __fastcall ReadVisible(Classes::TReader* Reader);
  331.     virtual void __fastcall WriteDummy(Classes::TWriter* Writer);
  332.     
  333. public:
  334.     __fastcall virtual TQRShape(Classes::TComponent* AOwner);
  335.     __fastcall virtual ~TQRShape(void);
  336.     
  337. __published:
  338.     __property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
  339.     __property Height ;
  340.     __property Graphics::TPen* Pen = {read=FPen, write=SetPen};
  341.     __property TQRShapeType Shape = {read=FShape, write=SetShape, nodefault};
  342.     __property Width ;
  343. public:
  344.     /* TWinControl.CreateParented */ __fastcall TQRShape(HWND ParentWindow) : Quickrpt::TQRPrintable(ParentWindow
  345.         ) { }
  346.     
  347. };
  348.  
  349. class DELPHICLASS TQRImage;
  350. class PASCALIMPLEMENTATION TQRImage : public Quickrpt::TQRPrintable 
  351. {
  352.     typedef Quickrpt::TQRPrintable inherited;
  353.     
  354. private:
  355.     Graphics::TPicture* FPicture;
  356.     bool FAutoSize;
  357.     bool FStretch;
  358.     bool FCenter;
  359.     Graphics::TCanvas* __fastcall GetCanvas(void);
  360.     void __fastcall PictureChanged(System::TObject* Sender);
  361.     void __fastcall SetAutoSize(bool Value);
  362.     void __fastcall SetCenter(bool Value);
  363.     void __fastcall SetPicture(Graphics::TPicture* Value);
  364.     void __fastcall SetStretch(bool Value);
  365.     
  366. protected:
  367.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  368.     virtual void __fastcall Paint(void);
  369.     virtual void __fastcall Print(int OfsX, int OfsY);
  370.     
  371. public:
  372.     __fastcall virtual TQRImage(Classes::TComponent* AOwner);
  373.     __fastcall virtual ~TQRImage(void);
  374.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  375.     
  376. __published:
  377.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  378.     __property bool Center = {read=FCenter, write=SetCenter, default=0};
  379.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  380.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  381. public:
  382.     /* TWinControl.CreateParented */ __fastcall TQRImage(HWND ParentWindow) : Quickrpt::TQRPrintable(ParentWindow
  383.         ) { }
  384.     
  385. };
  386.  
  387. class DELPHICLASS TQRDBImage;
  388. class PASCALIMPLEMENTATION TQRDBImage : public Quickrpt::TQRPrintable 
  389. {
  390.     typedef Quickrpt::TQRPrintable inherited;
  391.     
  392. private:
  393.     Db::TField* FField;
  394.     Db::TDataSet* FDataSet;
  395.     System::AnsiString FDataField;
  396.     Graphics::TPicture* FPicture;
  397.     bool FStretch;
  398.     bool FCenter;
  399.     bool FPictureLoaded;
  400.     void __fastcall PictureChanged(System::TObject* Sender);
  401.     void __fastcall SetCenter(bool Value);
  402.     void __fastcall SetDataField(const System::AnsiString Value);
  403.     void __fastcall SetDataSet(Db::TDataSet* Value);
  404.     void __fastcall SetPicture(Graphics::TPicture* Value);
  405.     void __fastcall SetStretch(bool Value);
  406.     
  407. protected:
  408.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  409.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  410.         );
  411.     virtual void __fastcall Paint(void);
  412.     virtual void __fastcall Prepare(void);
  413.     virtual void __fastcall Print(int OfsX, int OfsY);
  414.     virtual void __fastcall UnPrepare(void);
  415.     
  416. public:
  417.     __fastcall virtual TQRDBImage(Classes::TComponent* AOwner);
  418.     __fastcall virtual ~TQRDBImage(void);
  419.     void __fastcall LoadPicture(void);
  420.     __property Db::TField* Field = {read=FField};
  421.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  422.     
  423. __published:
  424.     __property bool Center = {read=FCenter, write=SetCenter, default=1};
  425.     __property System::AnsiString DataField = {read=FDataField, write=SetDataField};
  426.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  427.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  428. public:
  429.     /* TWinControl.CreateParented */ __fastcall TQRDBImage(HWND ParentWindow) : Quickrpt::TQRPrintable(
  430.         ParentWindow) { }
  431.     
  432. };
  433.  
  434. class DELPHICLASS TQRRichEdit;
  435. class PASCALIMPLEMENTATION TQRRichEdit : public Comctrls::TCustomRichEdit 
  436. {
  437.     typedef Comctrls::TCustomRichEdit inherited;
  438.     
  439. public:
  440.     __property BorderStyle ;
  441. public:
  442.     /* TCustomRichEdit.Create */ __fastcall virtual TQRRichEdit(Classes::TComponent* AOwner) : Comctrls::
  443.         TCustomRichEdit(AOwner) { }
  444.     /* TCustomRichEdit.Destroy */ __fastcall virtual ~TQRRichEdit(void) { }
  445.     
  446. public:
  447.     /* TWinControl.CreateParented */ __fastcall TQRRichEdit(HWND ParentWindow) : Comctrls::TCustomRichEdit(
  448.         ParentWindow) { }
  449.     
  450. };
  451.  
  452. class DELPHICLASS TQRCustomRichText;
  453. class PASCALIMPLEMENTATION TQRCustomRichText : public Quickrpt::TQRPrintable 
  454. {
  455.     typedef Quickrpt::TQRPrintable inherited;
  456.     
  457. private:
  458.     bool FAutoStretch;
  459.     Comctrls::TRichEdit* FParentRichEdit;
  460.     TQRRichEdit* FRichEdit;
  461.     Classes::TAlignment __fastcall GetAlignment(void);
  462.     Graphics::TColor __fastcall GetColor(void);
  463.     Graphics::TFont* __fastcall GetFont(void);
  464.     Classes::TStrings* __fastcall GetLines(void);
  465.     virtual void __fastcall SetAlignment(Classes::TAlignment Value);
  466.     HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
  467.     HIDESBASE void __fastcall SetFont(Graphics::TFont* Value);
  468.     void __fastcall SetLines(Classes::TStrings* Value);
  469.     void __fastcall SetParentRichEdit(Comctrls::TRichEdit* Value);
  470.     
  471. protected:
  472.     __property Classes::TStrings* Lines = {read=GetLines, write=SetLines};
  473.     __property Comctrls::TRichEdit* ParentRichEdit = {read=FParentRichEdit, write=SetParentRichEdit};
  474.     virtual void __fastcall Print(int OfsX, int OfsY);
  475.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  476.     
  477. public:
  478.     __fastcall virtual TQRCustomRichText(Classes::TComponent* AOwner);
  479.     __fastcall virtual ~TQRCustomRichText(void);
  480.     
  481. __published:
  482.     __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
  483.     __property bool AutoStretch = {read=FAutoStretch, write=FAutoStretch, nodefault};
  484.     __property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
  485.     __property Graphics::TFont* Font = {read=GetFont, write=SetFont};
  486. public:
  487.     /* TWinControl.CreateParented */ __fastcall TQRCustomRichText(HWND ParentWindow) : Quickrpt::TQRPrintable(
  488.         ParentWindow) { }
  489.     
  490. };
  491.  
  492. class DELPHICLASS TQRRichText;
  493. class PASCALIMPLEMENTATION TQRRichText : public Qrctrls::TQRCustomRichText 
  494. {
  495.     typedef Qrctrls::TQRCustomRichText inherited;
  496.     
  497. __published:
  498.     __property Lines ;
  499.     __property ParentRichEdit ;
  500. public:
  501.     /* TQRCustomRichText.Create */ __fastcall virtual TQRRichText(Classes::TComponent* AOwner) : Qrctrls::
  502.         TQRCustomRichText(AOwner) { }
  503.     /* TQRCustomRichText.Destroy */ __fastcall virtual ~TQRRichText(void) { }
  504.     
  505. public:
  506.     /* TWinControl.CreateParented */ __fastcall TQRRichText(HWND ParentWindow) : Qrctrls::TQRCustomRichText(
  507.         ParentWindow) { }
  508.     
  509. };
  510.  
  511. class DELPHICLASS TQRDBRichText;
  512. class PASCALIMPLEMENTATION TQRDBRichText : public Qrctrls::TQRCustomRichText 
  513. {
  514.     typedef Qrctrls::TQRCustomRichText inherited;
  515.     
  516. private:
  517.     Db::TField* Field;
  518.     System::AnsiString FDataField;
  519.     Db::TDataSet* FDataSet;
  520.     
  521. protected:
  522.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  523.         );
  524.     void __fastcall SetDataSet(Db::TDataSet* Value);
  525.     virtual void __fastcall Prepare(void);
  526.     virtual void __fastcall Unprepare(void);
  527.     virtual void __fastcall Print(int OfsX, int OfsY);
  528.     
  529. __published:
  530.     __property System::AnsiString DataField = {read=FDataField, write=FDataField};
  531.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  532. public:
  533.     /* TQRCustomRichText.Create */ __fastcall virtual TQRDBRichText(Classes::TComponent* AOwner) : Qrctrls::
  534.         TQRCustomRichText(AOwner) { }
  535.     /* TQRCustomRichText.Destroy */ __fastcall virtual ~TQRDBRichText(void) { }
  536.     
  537. public:
  538.     /* TWinControl.CreateParented */ __fastcall TQRDBRichText(HWND ParentWindow) : Qrctrls::TQRCustomRichText(
  539.         ParentWindow) { }
  540.     
  541. };
  542.  
  543. enum TQRCalcOperation { qrcSum, qrcCount, qrcMax, qrcMin, qrcAverage };
  544.  
  545. class DELPHICLASS TQRDBCalc;
  546. class PASCALIMPLEMENTATION TQRDBCalc : public Qrctrls::TQRExpr 
  547. {
  548.     typedef Qrctrls::TQRExpr inherited;
  549.     
  550. private:
  551.     System::AnsiString FDataField;
  552.     Db::TDataSource* FDataSource;
  553.     TQRCalcOperation FOperation;
  554.     Quickrpt::TQRBand* FResetBand;
  555.     
  556. protected:
  557.     System::AnsiString __fastcall GetPrintMask(void);
  558.     void __fastcall SetDataField(System::AnsiString Value);
  559.     void __fastcall SetOperation(TQRCalcOperation Value);
  560.     void __fastcall SetPrintMask(System::AnsiString Value);
  561.     
  562. __published:
  563.     __property System::AnsiString DataField = {read=FDataField, write=SetDataField};
  564.     __property Db::TDataSource* DataSource = {read=FDataSource, write=FDataSource};
  565.     __property OnPrint ;
  566.     __property TQRCalcOperation Operation = {read=FOperation, write=SetOperation, nodefault};
  567.     __property ParentFont ;
  568.     __property System::AnsiString PrintMask = {read=GetPrintMask, write=SetPrintMask};
  569.     __property Quickrpt::TQRBand* ResetBand = {read=FResetBand, write=FResetBand};
  570. public:
  571.     /* TQRExpr.Create */ __fastcall virtual TQRDBCalc(Classes::TComponent* AOwner) : Qrctrls::TQRExpr(AOwner
  572.         ) { }
  573.     /* TQRExpr.Destroy */ __fastcall virtual ~TQRDBCalc(void) { }
  574.     
  575. public:
  576.     /* TWinControl.CreateParented */ __fastcall TQRDBCalc(HWND ParentWindow) : Qrctrls::TQRExpr(ParentWindow
  577.         ) { }
  578.     
  579. };
  580.  
  581. //-- var, const, procedure ---------------------------------------------------
  582.  
  583. }    /* namespace Qrctrls */
  584. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  585. using namespace Qrctrls;
  586. #endif
  587. //-- end unit ----------------------------------------------------------------
  588. #endif    // Qrctrls
  589.